home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / nt / mewn1m.zip / CUA.CMD next >
OS/2 REXX Batch file  |  1992-04-17  |  10KB  |  362 lines
  1. ; CUA-feel macros for MicroEMACS 3.11c
  2. ;
  3. ; Pierre Perret - April 1992
  4.  
  5. ; Uses mark9 as CUA anchor and mark8 as a temporary (for mark swapping).
  6. ; Uses the Clipboard for CUA copy/cut/paste in MS-Windows version (MEWxx),
  7. ; uses the kill buffer for same in other implementations.
  8.  
  9. ; NOTE:
  10. ; - some key sequences are not supported by MicroEMACS-DOS:
  11. ;     Shift+Arrow, Ctrl+Ins/Del and Shift+Ins/Del/Home/End/PageUp/PageDown.
  12. ; - Shift+Ctrl+Arrow/Home/End not supported by either MicroEMACS-DOS or MEW10.
  13. ; 
  14. ; To offset that, the special keys have been assigned equivalent function
  15. ; keys: Ins=F9, Del=F10, Home=F1, End=F2, PageUp=F3, PageDown=F4,
  16. ;       ArrowLeft=F5, ArrowUp=F6, ArrowDown=F7, ArrowRight=F8
  17. ; for Shift or Ctrl combinations (using Alt for Shift+Ctrl cases)
  18.  
  19. ; set $hilite 9     ; for future MEW version that will be able to
  20. ;                   ; show region9 hilited
  21.  
  22. store-procedure CUA-cmdhook
  23. ; NOTE: unfortunately, %keepanchor is always set to FALSE for
  24. ;       M- and ^X prefixed keystrokes, regardless of the binding
  25.     !if %keepanchor
  26.         set %keepanchor FALSE
  27.     !else
  28.         set %discmd $discmd
  29.         set $discmd FALSE
  30.         ; previous command was not an anchor-preserving one
  31.         !force 9 remove-mark
  32.         set $discmd %discmd
  33.     !endif
  34. !endm
  35. set $cmdhook CUA-cmdhook
  36.  
  37. store-procedure load-anchor
  38. ; loads the anchor (mark9) into the mark0, saving
  39. ; previous mark0 into mark8.
  40. ; flag %anchor is set if there is a non-empty selection
  41. ; used by most deletion/copying actions
  42.     set %discmd $discmd
  43.     set $discmd FALSE
  44.     !force 0 exchange-point-and-mark
  45.     !if $status
  46.         8 set-mark
  47.         0 exchange-point-and-mark
  48.     !else
  49.         !force 8 remove-mark
  50.     !endif
  51.     !force 9 exchange-point-and-mark
  52.     !if $status
  53.         0 set-mark
  54.         9 exchange-point-and-mark
  55.         !if &seq $region ""
  56.             set %anchor FALSE
  57.         !else
  58.             set %anchor TRUE
  59.         !endif
  60.     !else
  61.         !force 0 remove-mark
  62.         set %anchor FALSE
  63.     !endif
  64.     set $discmd %discmd
  65. !endm
  66.  
  67. store-procedure restore-mark
  68. ; restores mark0 from mark8 after a load-anchor call
  69.     set %discmd $discmd
  70.     set $discmd FALSE
  71.     !force 8 exchange-point-and-mark
  72.     !if $status
  73.         0 set-mark
  74.         8 exchange-point-and-mark
  75.     !else
  76.         !force 0 remove-mark
  77.     !endif
  78.     set $discmd %discmd
  79. !endm
  80.  
  81. store-procedure CUA-Del
  82.     run load-anchor
  83.     !if %anchor
  84.         kill-region
  85.     !else
  86.         !force 1 delete-next-character
  87.     !endif
  88.     run restore-mark
  89. !endm
  90. macro-to-key    CUA-Del     FND
  91.  
  92. store-procedure CUA-C-Ins
  93.     run load-anchor
  94.     !if %anchor
  95.         set %keepanchor TRUE
  96.         !if &seq $sres MSWIN
  97.             clip-region
  98.         !else
  99.             copy-region
  100.         !endif
  101.     !endif
  102.     run restore-mark
  103. !endm
  104. macro-to-key    CUA-C-Ins    FN^C
  105. macro-to-key    CUA-C-Ins    FN^9
  106. !if &seq $sres MSWIN
  107.     unbind-menu     ">&Edit>&Clipboard>&Copy region"
  108.     macro-to-menu   CUA-C-Ins    "&Copy@1"
  109. !endif
  110.  
  111. store-procedure CUA-S-Del
  112.     run load-anchor
  113.     !if %anchor
  114.         !if &seq $sres MSWIN
  115.             cut-region
  116.         !else
  117.             kill-region
  118.         !endif
  119.     !endif
  120.     run restore-mark
  121. !endm
  122. macro-to-key    CUA-S-Del    S-FND
  123. macro-to-key    CUA-S-Del    S-FN0
  124. !if &seq $sres MSWIN
  125.     unbind-menu     ">&Edit>&Clipboard>Cu&t region"
  126.     macro-to-menu   CUA-S-Del   "Cu&t@0"
  127. !else
  128.  
  129. bind-to-key     yank            S-FNC   ; Shift+Ins
  130. bind-to-key     yank            S-FN9
  131. !endif
  132.  
  133.  
  134. store-procedure CUA-case-upper
  135.     run load-anchor
  136.     !if %anchor
  137.         set %keepanchor TRUE
  138.         case-region-upper
  139.     !endif
  140.     run restore-mark
  141. !endm
  142. macro-to-key    CUA-case-upper  A-U ; Alt+U
  143. !if &seq $sres MSWIN
  144.     macro-to-menu   CUA-case-upper  ">&Edit>&Selection@4>&Upper case"
  145. !endif
  146.  
  147. store-procedure CUA-case-lower
  148.     run load-anchor
  149.     !if %anchor
  150.         set %keepanchor TRUE
  151.         case-region-lower
  152.     !endif
  153.     run restore-mark
  154. !endm
  155. macro-to-key    CUA-case-lower  A-L ; Alt+L
  156. !if &seq $sres MSWIN
  157.     macro-to-menu   CUA-case-lower  "&Lower case"
  158. !endif
  159.  
  160. store-procedure CUA-count-words
  161. ; this procedure is not really necessary but it demonstrates
  162. ; how to add CUA-based functionality
  163.     run load-anchor
  164.     !if %anchor
  165.         set %keepanchor TRUE
  166.         count-words
  167.     !endif
  168.     run restore-mark
  169. !endm
  170. macro-to-key    CUA-count-words A-W ; Alt+W
  171. !if &seq $sres MSWIN
  172.     macro-to-menu   CUA-count-words "Count &words"
  173. !endif
  174.  
  175. store-procedure CUA-flip-selection
  176. ; a sort of exchange-point-and-anchor, could be used to
  177. ; visualize the selection by going back and forth to its
  178. ; boundaries
  179.     !force 9 exchange-point-and-mark
  180.     !if $status
  181.         set %keepanchor TRUE
  182.     !endif
  183. !endm
  184. macro-to-key    CUA-flip-selection A-=
  185. !if &seq $sres MSWIN
  186.     bind-to-menu    nop "-"
  187.     macro-to-menu   CUA-flip-selection "&Flip"
  188. !endif
  189.  
  190. store-procedure CUA-select-region
  191. ; makes the anchor equal to the mark
  192. ; (useful to build very large selections)
  193.     set %discmd $discmd
  194.     set $discmd FALSE
  195.     !force 0 exchange-point-and-mark
  196.     !if $status
  197.         9 set-mark
  198.         0 exchange-point-and-mark
  199.         set %keepanchor TRUE
  200.     !else
  201.         9 remove-mark
  202.     !endif
  203.     set $discmd %discmd
  204. !endm
  205. macro-to-key    CUA-select-region A-^M  ; Alt+Enter
  206. !if &seq $sres MSWIN
  207.     macro-to-menu   CUA-select-region   "Select ®ion"
  208. !endif
  209.  
  210. store-procedure CUA-anchor
  211. ; makes sure we have a CUA anchor point (i.e. a mark9)
  212. ; used internally by most extended selection keys
  213. ; always sets %keepanchor to TRUE
  214.     set %discmd $discmd
  215.     set $discmd FALSE
  216.     !force 9 exchange-point-and-mark
  217.     !if $status
  218.         9 exchange-point-and-mark
  219.     !else
  220.         9 set-mark
  221.     !endif
  222.     set %keepanchor TRUE
  223.     set $discmd %discmd
  224. !endm
  225.  
  226. store-procedure CUA-S-home
  227.     run CUA-anchor
  228.     beginning-of-line
  229. !endm
  230. macro-to-key    CUA-S-home          S-FN<
  231. macro-to-key    CUA-S-home          S-FN1
  232.  
  233. store-procedure CUA-S-end
  234.     run CUA-anchor
  235.     end-of-line
  236. !endm
  237. macro-to-key    CUA-S-end           S-FN>
  238. macro-to-key    CUA-S-end           S-FN2
  239.  
  240. store-procedure CUA-SC-home
  241.     run CUA-anchor
  242.     beginning-of-file
  243. !endm
  244. macro-to-key    CUA-SC-home         S-FN^<
  245. macro-to-key    CUA-SC-home         A-FN1
  246.  
  247. store-procedure CUA-SC-end
  248.     run CUA-anchor
  249.     end-of-file
  250. !endm
  251. macro-to-key    CUA-SC-end          S-FN^>
  252. macro-to-key    CUA-SC-end          A-FN2
  253.  
  254. store-procedure CUA-S-pageup
  255.     run CUA-anchor
  256.     previous-page
  257. !endm
  258. macro-to-key    CUA-S-pageup        S-FNZ
  259. macro-to-key    CUA-S-pageup        S-FN3
  260.  
  261. store-procedure CUA-S-pagedown
  262.     run CUA-anchor
  263.     next-page
  264. !endm
  265. macro-to-key    CUA-S-pagedown      S-FNV
  266. macro-to-key    CUA-S-pagedown      S-FN4
  267.  
  268. store-procedure CUA-S-up
  269.     run CUA-anchor
  270.     !force previous-line
  271. !endm
  272. macro-to-key    CUA-S-up            S-FNP
  273. macro-to-key    CUA-S-up            S-FN6
  274.  
  275. store-procedure CUA-S-down
  276.     run CUA-anchor
  277.     !force next-line
  278. !endm
  279. macro-to-key    CUA-S-down          S-FNN
  280. macro-to-key    CUA-S-down          S-FN7
  281.  
  282. store-procedure CUA-S-left
  283.     run CUA-anchor
  284.     !force backward-character
  285. !endm
  286. macro-to-key    CUA-S-left          S-FNB
  287. macro-to-key    CUA-S-left          S-FN5
  288.  
  289. store-procedure CUA-S-right
  290.     run CUA-anchor
  291.     !force forward-character
  292. !endm
  293. macro-to-key    CUA-S-right         S-FNF
  294. macro-to-key    CUA-S-right         S-FN8
  295.  
  296. store-procedure CUA-SC-left
  297.     run CUA-anchor
  298.     !force previous-word
  299. !endm
  300. macro-to-key    CUA-SC-left         S-FN^B
  301. macro-to-key    CUA-SC-left         A-FN5
  302.  
  303. store-procedure CUA-SC-right
  304.     run CUA-anchor
  305.     !force next-word
  306. !endm
  307. macro-to-key    CUA-SC-right        S-FN^F
  308. macro-to-key    CUA-SC-right        A-FN8
  309.  
  310. bind-to-key     beginning-of-file   FN^<
  311. bind-to-key     beginning-of-file   FN^1    ; for consistency only
  312. bind-to-key     end-of-file         FN^>
  313. bind-to-key     end-of-file         FN^2    ; for consistency only
  314. bind-to-key     beginning-of-line   FN<
  315. bind-to-key     end-of-line         FN>
  316.  
  317. ; Transfer the standard MicroEMACS left mouse button commands onto the 
  318. ; right button (text scrolling, window resizing, screen move/resize...)
  319. ; and the old right button commands to Shift + right button
  320. !force unbind-key  MS1  ; should have been MS^A anyway!
  321. bind-to-key mouse-move-down     MSe     ; right_button_down
  322. bind-to-key mouse-move-up       MSf     ; right_button_up
  323. bind-to-key mouse-resize-screen MS^E    ; Ctrl + right_button_down
  324. bind-to-key mouse-region-down   MSE     ; Shift + right_button_down
  325. bind-to-key mouse-region-up     MSF     ; Shift + right_button_up
  326.  
  327. store-procedure MSleft-down
  328.     set %discmd $discmd
  329.     set $discmd FALSE
  330.     !force mouse-move-down
  331.     !if $status
  332.         set %keepanchor TRUE
  333.         9 set-mark
  334.         set %msbuf $cbufname
  335.     !else
  336.         set %msbuf ""
  337.         !force 9 remove-mark
  338.     !endif
  339.     set $discmd %discmd
  340. !endm
  341. macro-to-key MSleft-down    MSa
  342.  
  343. store-procedure MSleft-up
  344.     set %discmd $discmd
  345.     set $discmd FALSE
  346.     !force mouse-move-down
  347.     !if &and $status &seq %msbuf $cbufname
  348.         set %keepanchor TRUE
  349.     !else
  350.         !force 9 remove-mark
  351.     !endif
  352.     set $discmd %discmd
  353. !endm
  354. macro-to-key MSleft-up      MSb
  355.  
  356. store-procedure S-MSleft
  357.     run CUA-anchor
  358.     !force mouse-move-down  
  359. !endm
  360. macro-to-key S-MSleft       MSA
  361. macro-to-key S-MSleft       MSB
  362.